From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 25 Mar 1994 19:19:05 +0000 (+0000)
Subject: (debug_print): New function.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~92528
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=cf1bb91bd13b9e6c39be8f71f622bfb4a8b60179;p=emacs.git

(debug_print): New function.
---

diff --git a/src/print.c b/src/print.c
index 8e4a05fe3af..a5f1f97907f 100644
--- a/src/print.c
+++ b/src/print.c
@@ -598,6 +598,15 @@ to make it write to the debugging output.\n")
   
   return character;
 }
+
+/* This is the interface for debugging printing.  */
+
+void
+debug_print (arg)
+     Lisp_Object arg;
+{
+  Fprin1 (arg, Qexternal_debugging_output);
+}
 
 #ifdef LISP_FLOAT_TYPE